Filename: /text/sbasic/shared/03130700.xhp

GetSystemTicks Function [Runtime]
GetSystemTicks 関数 [実行時](hd_id3147143.1)

Returns the number of system ticks provided by the operating system. You can use this function to optimize certain processes.
オペレーティングシステムから現在の実行時間 (チック数) を取得して返します。この関数は、プロセスの最適化をする際などに利用できます。(par_id3153750.2)

Syntax:
構文:(hd_id3153311.3)

GetSystemTicks()
GetSystemTicks()(par_id3147242.4)

Return value:
戻り値:(hd_id3149233.5)

Long
ロング整数(par_id3149762.6)

Example:
例:(hd_id3156152.7)

Sub ExampleWait
Sub ExampleWait(par_id3148943.8)

Dim lTick As Long
Dim lTick As Long(par_id3146795.9)

lTick = GetSystemTicks()
lTick = GetSystemTicks()(par_id3145069.10)

wait 2000
wait 2000(par_id3147560.11)

lTick = (GetSystemTicks() - lTick)
lTick = (GetSystemTicks() - lTick)(par_id3149655.12)

MsgBox "" & lTick & " Ticks" ,0,"The pause lasted"
MsgBox "" & lTick & " Ticks" ,0,"The pause lasted"(par_id3154938.13)

End Sub
End Sub(par_id3150542.14)